00100	TITLE CAMDRV
00200	P←17
00300	S:	TTYUUO 3,[ASCIZ/
00400	TURN POTS TO CENTER OF RANGE,
00500	TYPE <CR> WHEN READY./]
00600		TTYUUO
00700		CAIE 15
00800		JRST S
00900		TTYUUO
01000		SETZM 10
01100		MOVE P,[XWD 10,PDL]
01200	STRT:	SPCWAR GO
01300		SKIPE FIRST
01400		JRST AROUND
01500		SETOM FIRST
01600		MOVE 12,[POINT 4,CHANGE]
01700		MOVEI 13,3
01800		PUSHJ P,TYPE
01900	AROUND:	MOVEI
02000		CALLI 31
02100		SKIPN FLAG
02200		JRST .-2
02300		SETZM FLAG
02400		SPCWAR 636367
02500		SKIPE CHANGE
02600		JRST CHGIT
02700		JRST STRT
02800	CHGIT:	SPCWAR 1,GO
02900		MOVE 12,[POINT 4,CHANGE]
03000		MOVEI 13,3
03100		PUSHJ P,TYPE
03200		SKIPN CHANGE
03300		JRST ZEROIT
03400		SKIPE 10
03500		JRST CHGIT+1
03600		MOVE 10,[400001,,BANG]
03700		CALLI 10,400003
03800		JRST CHGIT+1
03900	ZEROIT:	SPCWAR 636367
04000		MOVEI 1,[400000,,STOP]
04100		CALLI 1,400003
04200		SETZM 10
04300		SPCWAR 636367
04400		SETZM FIRST
04500		JRST STRT
04600	TYPE:	ILDB 14,12
04700		IDIVI 14,10
04800		ADDI 14,60
04900		ADDI 15,60
05000		TTYUUO 1,14
05100		TTYUUO 1,15
05200		TTYUUO 3,[ASCIZ/  /]
05300		SOJGE 13,TYPE
05400		TTYUUO 3,[ASCIZ/
05500	/]
05600		POPJ P,
05700	PDL:	BLOCK 10
     

00100	BANG:	MOVE 10,CHANGE
00200		IORI 10,400000
00300		DATAO 410,10
00400		CALLI 400024
00500	STOP:	MOVEI 10,400000
00600		DATAO 410,10
00700		CALLI 400024
     

00100	GO:	CONI 204,CHAN
00200		SETZM FLAG
00300		CONO 204,4250
00400		CONO 424,122000
00500		MOVE 5,[-2,,0]
00600	MUFF:	MOVEI 3,10
00700		MOVEI 4,25
00800		CONI 204,1
00900		TRNE 1,11000
01000		JRST GOTIT
01100		SOJN 4,.-3
01200		JRST HUNG
01300	GOTIT:	TRNN 1,10000
01400		JRST GETOUT
01500		SOJN 3,MUFF+1
01600		JRST DAMIT
01700	GETOUT:	DATAI 204,NUMMIE(5)
01800		AOBJN 5,MUFF
01900		CONO 424,4000
02000		CONO 204,@CHAN
02100		MOVE 12,[POINT 12,NUMMIE]
02200		MOVE 13,[POINT 4,CHANGE+1]
02300		MOVEI 14,3
02400	SPEED:	ILDB 10,12
02500		SETZ 4,
02600		TRC 10,4000
02700		MOVE 5,[POINT 4,SPEEDS]
02800		IBP 5
02900		ADDI 4,400
03000		CAMLE 10,4
03100		JRST .-3
03200		LDB 11,5
03300		IDPB 11,13
03400		SOJGE 14,SPEED
03500		HLL 14,CHANGE+1
03600		HLLM 14,CHANGE
03700		SETOM FLAG
03800		CALLI 400024
     

00100	CHAN:	0
00200	CHANGE:	0
00300		0
00400	SPEEDS:	BYTE (4)11,12,13,14,15,16,17,0,0
00500		BYTE (4)1,2,3,4,5,6,7,0,0
00600	GOODIE:	0
00700	FLAG:	0
00800	HANGED:	0
00900		SETZM FLAG
01000	DAMNED:	0
01100	HUNG:	SETOM HANGED
01200		SETOM FLAG
01300		CALLI 400024
01400	
01500	DAMIT:	SETOM DAMNED
01600		SETOM FLAG
01700		CALLI 400024
01800	
01900	NUMMIE:	BLOCK 50
02000	FIRST:	0
02100	END S